home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / admisc.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  50 lines
  1. {$V-,I-}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                    ADMISC.PAS 1.01                    *}
  8. {*     Copyright (c) TurboPower Software 1994.           *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdMisc;
  13.   {-Unit for miscellaneous Delphi-specific routines}
  14.  
  15. interface
  16.  
  17. uses
  18.   OoMisc;
  19.  
  20. type
  21.   CharSet = Set of Char;
  22.  
  23. function TrimTrail(const S : String) : String;
  24.   {-Return a String with trailing white space removed}
  25.  
  26. function JustPathname(const PathName : String) : String;
  27.   {-Return just the drive:directory portion of a pathname}
  28.  
  29. function JustFilename(const PathName : String) : String;
  30.   {-Return just the filename and extension of a pathname}
  31.  
  32. function AddBackSlash(const DirName : String) : String;
  33.   {-Add a default backslash to a directory name}
  34.  
  35. function FullPathName(const FName : String) : String;
  36.   {-Given FName (known to exist), return a full pathname}
  37.  
  38. function WordCount(const S : String; const WordDelims : CharSet) : Byte;
  39.   {-Given a set of word delimiters, return number of words in S}
  40.  
  41. function WordPosition(const N : Byte; const S : String; const WordDelims : CharSet) : Byte;
  42.   {-Given a set of word delimiters, return start position of N'th word in S}
  43.  
  44. function ExtractWord(const N : Byte; const S : String; const WordDelims : CharSet) : String;
  45.   {-Given a set of word delimiters, return the N'th word in S}
  46.  
  47. function IsDirectory(const FName : String) : Boolean;
  48.   {-Return true if FName is a directory}
  49.  
  50.